home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
kcl.lha
/
cmpnew
/
cmpvar.c
< prev
next >
Wrap
C/C++ Source or Header
|
1987-06-04
|
31KB
|
1,321 lines
/* (C) Copyright Taiichi Yuasa and Masami Hagiya, 1984. All rights reserved. */
#include <cmpinclude.h>
#include "cmpvar.h"
init_cmpvar(start,size,data)char *start;int size;object data;
{ register object *base=vs_top;register object *sup=base+VM2;vs_check;
Cstart=start;Csize=size;Cdata=data;set_VV(VV,VM1,data);
(void)(putprop(VV[0],VV[1],VV[2]));
(void)(putprop(VV[3],VV[4],VV[2]));
(void)(putprop(VV[5],VV[6],VV[7]));
(void)(putprop(VV[5],VV[8],VV[2]));
(void)(putprop(VV[9],VV[10],VV[7]));
(void)(putprop(VV[9],VV[11],VV[2]));
(void)(putprop(VV[12],VV[13],VV[14]));
(void)(putprop(VV[12],VV[15],VV[2]));
(void)(putprop(VV[0],VV[16],VV[17]));
(void)(putprop(VV[0],VV[18],VV[19]));
(void)(putprop(VV[0],VV[20],VV[21]));
(void)(putprop(VV[0],Ct,VV[22]));
(void)(putprop(VV[0],VV[23],VV[24]));
(void)(putprop(VV[0],Cnil,VV[25]));
(void)(putprop(VV[0],Cnil,VV[26]));
(void)(putprop(VV[0],Cnil,VV[27]));
(void)(putprop(VV[0],Cnil,VV[28]));
MF(VV[29],L18,start,size,data);
(void)(putprop(VV[29],VV[30],VV[31]));
(void)(putprop(VV[29],VV[32],VV[33]));
(void)(remprop(VV[29],VV[34]));
(void)(remprop(VV[29],VV[35]));
(void)(putprop(VV[29],Cnil,VV[36]));
MF(VV[37],L25,start,size,data);
(void)(putprop(VV[37],VV[38],VV[31]));
(void)(putprop(VV[37],VV[39],VV[33]));
(void)(remprop(VV[37],VV[34]));
(void)(remprop(VV[37],VV[35]));
(void)(putprop(VV[37],Cnil,VV[36]));
MF(VV[40],L32,start,size,data);
(void)(putprop(VV[40],VV[41],VV[31]));
(void)(putprop(VV[40],VV[42],VV[33]));
(void)(remprop(VV[40],VV[34]));
(void)(remprop(VV[40],VV[35]));
(void)(putprop(VV[40],Cnil,VV[36]));
MF(VV[43],L39,start,size,data);
(void)(putprop(VV[43],VV[44],VV[31]));
(void)(putprop(VV[43],VV[45],VV[33]));
(void)(remprop(VV[43],VV[34]));
(void)(remprop(VV[43],VV[35]));
(void)(putprop(VV[43],Cnil,VV[36]));
MF(VV[46],L46,start,size,data);
(void)(putprop(VV[46],VV[47],VV[31]));
(void)(putprop(VV[46],VV[48],VV[33]));
(void)(remprop(VV[46],VV[34]));
(void)(remprop(VV[46],VV[35]));
(void)(putprop(VV[46],Cnil,VV[36]));
MF(VV[49],L53,start,size,data);
(void)(putprop(VV[49],VV[50],VV[31]));
(void)(putprop(VV[49],VV[51],VV[33]));
(void)(remprop(VV[49],VV[34]));
(void)(remprop(VV[49],VV[35]));
(void)(putprop(VV[49],Cnil,VV[36]));
(void)(putprop(VV[0],VV[52],VV[53]));
MF(VV[103],L61,start,size,data);
(void)(putprop(VV[0],VV[54],VV[55]));
MF(VV[104],L63,start,size,data);
MF(VV[105],L64,start,size,data);
(void)(putprop(VV[0],Cnil,VV[56]));
VV[57]->s.s_stype=(short)stp_special;
if(VV[57]->s.s_dbind == OBJNULL){
VV[57]->s.s_dbind = Cnil;}
VV[58]->s.s_stype=(short)stp_special;
if(VV[58]->s.s_dbind == OBJNULL){
VV[58]->s.s_dbind = Cnil;}
VV[59]->s.s_stype=(short)stp_special;
if(VV[59]->s.s_dbind == OBJNULL){
VV[59]->s.s_dbind = Cnil;}
MF(VV[106],L67,start,size,data);
MF(VV[107],L68,start,size,data);
MF(VV[108],L69,start,size,data);
MF(VV[109],L70,start,size,data);
MF(VV[110],L71,start,size,data);
MF(VV[1],L72,start,size,data);
MF(VV[4],L73,start,size,data);
MF(VV[18],L74,start,size,data);
MF(VV[16],L75,start,size,data);
MF(VV[111],L76,start,size,data);
MF(VV[112],L77,start,size,data);
MF(VV[6],L78,start,size,data);
MF(VV[113],L79,start,size,data);
MF(VV[8],L80,start,size,data);
MF(VV[10],L81,start,size,data);
MF(VV[11],L82,start,size,data);
MF(VV[13],L83,start,size,data);
MF(VV[15],L84,start,size,data);
vs_top=vs_base=base;
}
/* function definition for VAR-NAME */
static L18()
{ register object *base=vs_base;
register object *sup=base+VM3;
vs_reserve(VM3);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= structure_ref(base[0],VV[0],0);
vs_top=(vs_base=base+1)+1;
return;
}
/* function definition for VAR-KIND */
static L25()
{ register object *base=vs_base;
register object *sup=base+VM4;
vs_reserve(VM4);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= structure_ref(base[0],VV[0],1);
vs_top=(vs_base=base+1)+1;
return;
}
/* function definition for VAR-REF */
static L32()
{ register object *base=vs_base;
register object *sup=base+VM5;
vs_reserve(VM5);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= structure_ref(base[0],VV[0],2);
vs_top=(vs_base=base+1)+1;
return;
}
/* function definition for VAR-REF-CCB */
static L39()
{ register object *base=vs_base;
register object *sup=base+VM6;
vs_reserve(VM6);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= structure_ref(base[0],VV[0],3);
vs_top=(vs_base=base+1)+1;
return;
}
/* function definition for VAR-LOC */
static L46()
{ register object *base=vs_base;
register object *sup=base+VM7;
vs_reserve(VM7);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= structure_ref(base[0],VV[0],4);
vs_top=(vs_base=base+1)+1;
return;
}
/* function definition for VAR-TYPE */
static L53()
{ register object *base=vs_base;
register object *sup=base+VM8;
vs_reserve(VM8);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= structure_ref(base[0],VV[0],5);
vs_top=(vs_base=base+1)+1;
return;
}
/* function definition for MAKE-VAR */
static L61()
{ register object *base=vs_base;
register object *sup=base+VM9;
vs_reserve(VM9);
parse_key(vs_base,FALSE,FALSE,6,VV[60],VV[70],VV[114],VV[115],VV[72],VV[73]);
vs_top=sup;
if(base[11]==Cnil){
base[5]= Ct;
}else{}
base[12]= VV[0];
base[13]= base[0];
base[14]= base[1];
base[15]= base[2];
base[16]= base[3];
base[17]= base[4];
base[18]= base[5];
vs_top=(vs_base=base+12)+7;
siLmake_structure();
return;
}
/* function definition for COPY-VAR */
static L63()
{ register object *base=vs_base;
register object *sup=base+VM10;
vs_reserve(VM10);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= base[0];
base[2]= VV[0];
symlispcall_no_event(VV[116],base+1,2);
return;
}
/* function definition for VAR-P */
static L64()
{ register object *base=vs_base;
register object *sup=base+VM11;
vs_reserve(VM11);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= base[0];
vs_top=(vs_base=base+1)+1;
siLstructurep();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T71;}
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T71:;
base[2]= base[0];
vs_top=(vs_base=base+2)+1;
siLstructure_name();
vs_top=sup;
base[1]= vs_base[0];
T77:;
if((base[1])!=Cnil){
goto T78;}
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T78:;
if(!(base[1]==VV[0])){
goto T82;}
base[2]= Ct;
vs_top=(vs_base=base+2)+1;
return;
T82:;
base[1]= get(base[1],VV[25],Cnil);
goto T77;
}
/* function definition for C1MAKE-VAR */
static L67()
{ register object *base=vs_base;
register object *sup=base+VM12;
vs_reserve(VM12);
check_arg(4);
vs_top=sup;
TTL:;
base[4]= Cnil;
base[6]= VV[60];
base[7]= base[0];
vs_top=(vs_base=base+6)+2;
L61();
vs_top=sup;
base[5]= vs_base[0];
if(type_of(base[0])==t_symbol){
goto T92;}
base[6]= VV[61];
base[7]= base[0];
(void)simple_symlispcall_no_event(VV[117],base+6,2);
T92:;
base[6]= base[0];
vs_top=(vs_base=base+6)+1;
Lconstantp();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T97;}
base[6]= VV[62];
base[7]= base[0];
(void)simple_symlispcall_no_event(VV[117],base+6,2);
T97:;
{object x= base[0],V1= base[1];
while(!endp(V1))
if(eql(x,V1->c.c_car)){
goto T104;
}else V1=V1->c.c_cdr;}
base[6]= base[0];
vs_top=(vs_base=base+6)+1;
siLspecialp();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T105;}
T104:;
structure_set(base[5],VV[0],1,VV[63]);
base[7]= base[0];
base[6]= simple_symlispcall_no_event(VV[118],base+7,1);
structure_set(base[5],VV[0],4,base[6]);
{object x= base[0],V2= base[3];
while(!endp(V2))
if(eql(x,car(V2->c.c_car))){
base[4]= (V2->c.c_car);
goto T118;
}else V2=V2->c.c_cdr;
base[4]= Cnil;}
T118:;
if((base[4])==Cnil){
goto T116;}
structure_set(base[5],VV[0],5,cdr(base[4]));
goto T114;
T116:;
base[4]= get(base[0],VV[64],Cnil);
if((base[4])==Cnil){
goto T114;}
structure_set(base[5],VV[0],5,base[4]);
T114:;
setq(VV[59],Ct);
goto T103;
T105:;
{object x= base[0],V3= base[3];
while(!endp(V3))
if(eql(x,car(V3->c.c_car))){
base[4]= (V3->c.c_car);
goto T126;
}else V3=V3->c.c_cdr;
base[4]= Cnil;}
T126:;
if((base[4])==Cnil){
goto T123;}
if(!(cdr(base[4])==VV[65])){
goto T128;}
structure_set(base[5],VV[0],4,VV[65]);
goto T123;
T128:;
structure_set(base[5],VV[0],5,cdr(base[4]));
T123:;
structure_set(base[5],VV[0],1,VV[66]);
T103:;
{object x= base[0],V4= base[2];
while(!endp(V4))
if(eql(x,V4->c.c_car)){
goto T132;
}else V4=V4->c.c_cdr;
goto T130;}
T132:;
structure_set(base[5],VV[0],2,VV[67]);
T130:;
vs_top=(vs_base=base+5)+1;
return;
}
/* function definition for CHECK-VREF */
static L68()
{ register object *base=vs_base;
register object *sup=base+VM13;
vs_reserve(VM13);
check_arg(1);
vs_top=sup;
TTL:;
if(!(structure_ref(base[0],VV[0],1)==VV[66])){
goto T134;}
if((structure_ref(base[0],VV[0],2))!=Cnil){
goto T134;}
if((structure_ref(base[0],VV[0],3))!=Cnil){
goto T134;}
base[1]= VV[68];
base[2]= structure_ref(base[0],VV[0],0);
symlispcall_no_event(VV[119],base+1,2);
return;
T134:;
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
}
/* function definition for C1VAR */
static L69()
{ register object *base=vs_base;
register object *sup=base+VM14;
vs_reserve(VM14);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= simple_symlispcall_no_event(VV[120],base+3,0);
base[3]= base[0];
vs_top=(vs_base=base+3)+1;
L70();
vs_top=sup;
base[2]= vs_base[0];
base[3]= make_cons(car(base[2]),structure_ref(base[1],VV[69],1));
structure_set(base[1],VV[69],1,base[3]);
structure_set(base[1],VV[69],2,structure_ref(car(base[2]),VV[0],5));
base[3]= list(3,VV[0],base[1],base[2]);
vs_top=(vs_base=base+3)+1;
return;
}
/* function definition for C1VREF */
static L70()
{ register object *base=vs_base;
register object *sup=base+VM15;
vs_reserve(VM15);
check_arg(1);
vs_top=sup;
TTL:;
{object V5;
object V6;
V5= Cnil;
V6= Cnil;
{object V7;
base[1]= symbol_value(VV[57]);
V7= car(base[1]);
T152:;
if(!(endp(base[1]))){
goto T153;}
base[3]= base[0];
vs_top=(vs_base=base+3)+1;
L76();
vs_top=sup;
base[2]= vs_base[0];
if((base[2])!=Cnil){
goto T158;}
base[3]= base[0];
vs_top=(vs_base=base+3)+1;
siLspecialp();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T161;}
base[3]= base[0];
(void)simple_symlispcall_no_event(VV[121],base+3,1);
T161:;
base[3]= VV[60];
base[4]= base[0];
base[5]= VV[70];
base[6]= VV[71];
base[7]= VV[72];
base[9]= base[0];
base[8]= simple_symlispcall_no_event(VV[118],base+9,1);
base[9]= VV[73];
base[11]= get(base[0],VV[64],Cnil);
if(base[11]==Cnil)goto T177;
base[10]= base[11];
goto T176;
T177:;
base[10]= Ct;
T176:;
vs_top=(vs_base=base+3)+8;
L61();
vs_top=sup;
base[2]= vs_base[0];
setq(VV[58],make_cons(base[2],symbol_value(VV[58])));
T158:;
base[3]= list(2,base[2],(V5));
vs_top=(vs_base=base+3)+1;
return;
T153:;
if(!((V7)==VV[74])){
goto T183;}
V5= Ct;
goto T181;
T183:;
if(!((V7)==VV[75])){
goto T187;}
V6= Ct;
goto T181;
T187:;
if(!(structure_ref((V7),VV[0],0)==base[0])){
goto T181;}
if(!(structure_ref((V7),VV[0],2)==VV[67])){
goto T192;}
base[2]= VV[76];
base[3]= base[0];
(void)simple_symlispcall_no_event(VV[119],base+2,2);
structure_set((V7),VV[0],2,Ct);
T192:;
if(((V5))==Cnil){
goto T200;}
structure_set((V7),VV[0],3,Ct);
goto T198;
T200:;
if(((V6))==Cnil){
goto T203;}
if(!(structure_ref((V7),VV[0],1)==VV[66])){
goto T205;}
structure_set((V7),VV[0],4,VV[77]);
T205:;
structure_set((V7),VV[0],2,Ct);
goto T198;
T203:;
structure_set((V7),VV[0],2,Ct);
T198:;
base[2]= list(2,(V7),(V5));
vs_top=(vs_base=base+2)+1;
return;
T181:;
base[1]= cdr(base[1]);
V7= car(base[1]);
goto T152;}}
}
/* function definition for C2VAR-KIND */
static L71()
{ register object *base=vs_base;
register object *sup=base+VM16;
vs_reserve(VM16);
check_arg(1);
vs_top=sup;
TTL:;
if(!(structure_ref(base[0],VV[0],1)==VV[66])){
goto T214;}
if((structure_ref(base[0],VV[0],3))!=Cnil){
goto T214;}
if(structure_ref(base[0],VV[0],4)==VV[77]){
goto T214;}
if(!(structure_ref(base[0],VV[0],4)==VV[65])){
goto T221;}
base[1]= VV[65];
vs_top=(vs_base=base+1)+1;
return;
T221:;
{object V8;
V8= structure_ref(base[0],VV[0],5);
base[1]= VV[78];
base[2]= (V8);
if((simple_symlispcall_no_event(VV[122],base+1,2))==Cnil){
goto T225;}
base[1]= VV[78];
vs_top=(vs_base=base+1)+1;
return;
T225:;
base[1]= VV[79];
base[2]= (V8);
if((simple_symlispcall_no_event(VV[122],base+1,2))==Cnil){
goto T230;}
base[1]= VV[79];
vs_top=(vs_base=base+1)+1;
return;
T230:;
base[1]= VV[80];
base[2]= (V8);
if((simple_symlispcall_no_event(VV[122],base+1,2))==Cnil){
goto T235;}
base[1]= VV[80];
vs_top=(vs_base=base+1)+1;
return;
T235:;
base[1]= VV[81];
base[2]= (V8);
if((simple_symlispcall_no_event(VV[122],base+1,2))==Cnil){
goto T240;}
base[1]= VV[81];
vs_top=(vs_base=base+1)+1;
return;
T240:;
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;}
T214:;
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
}
/* function definition for C2VAR */
static L72()
{ register object *base=vs_base;
register object *sup=base+VM17;
vs_reserve(VM17);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= make_cons(VV[0],base[0]);
symlispcall_no_event(VV[123],base+1,1);
return;
}
/* function definition for C2LOCATION */
static L73()
{ register object *base=vs_base;
register object *sup=base+VM18;
vs_reserve(VM18);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= base[0];
symlispcall_no_event(VV[123],base+1,1);
return;
}
/* function definition for WT-VAR */
static L74()
{ register object *base=vs_base;
register object *sup=base+VM19;
vs_reserve(VM19);
check_arg(2);
vs_top=sup;
TTL:;
{object V9= structure_ref(base[0],VV[0],1);
if((V9!= VV[66]))goto T246;
if((base[1])==Cnil){
goto T248;}
base[2]= structure_ref(base[0],VV[0],3);
symlispcall_no_event(VV[124],base+2,1);
return;
T248:;
if((structure_ref(base[0],VV[0],3))==Cnil){
goto T252;}
base[2]= structure_ref(base[0],VV[0],2);
symlispcall_no_event(VV[125],base+2,1);
return;
T252:;
base[2]= structure_ref(base[0],VV[0],2);
symlispcall_no_event(VV[126],base+2,1);
return;
T246:;
if((V9!= VV[63]))goto T256;
princ_str("(VV[",VV[82]);
base[2]= structure_ref(base[0],VV[0],4);
(void)simple_symlispcall_no_event(VV[127],base+2,1);
princ_str("]->s.s_dbind)",VV[82]);
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T256:;
if((V9!= VV[128]))goto T261;
base[2]= structure_ref(base[0],VV[0],4);
(void)simple_symlispcall_no_event(VV[127],base+2,1);
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T261:;
if((V9!= VV[71]))goto T264;
if((symbol_value(VV[83]))==Cnil){
goto T266;}
princ_str("symbol_value(VV[",VV[82]);
base[2]= structure_ref(base[0],VV[0],4);
(void)simple_symlispcall_no_event(VV[127],base+2,1);
princ_str("])",VV[82]);
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T266:;
princ_str("(VV[",VV[82]);
base[2]= structure_ref(base[0],VV[0],4);
(void)simple_symlispcall_no_event(VV[127],base+2,1);
princ_str("]->s.s_dbind)",VV[82]);
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T264:;
{object V10= structure_ref(base[0],VV[0],1);
if((V10!= VV[78]))goto T277;
if(!(number_compare(small_fixnum(0),symbol_value(VV[84]))==0)){
goto T278;}
princ_str("CMP",VV[82]);
T278:;
princ_str("make_fixnum",VV[82]);
goto T276;
T277:;
if((V10!= VV[79]))goto T283;
princ_str("code_char",VV[82]);
goto T276;
T283:;
if((V10!= VV[80]))goto T285;
princ_str("make_longfloat",VV[82]);
goto T276;
T285:;
if((V10!= VV[81]))goto T287;
princ_str("make_shortfloat",VV[82]);
goto T276;
T287:;
if((V10!= VV[65]))goto T289;
goto T276;
T289:;
(void)simple_symlispcall_no_event(VV[129],base+2,0);}
T276:;
princ_str("(V",VV[82]);
base[2]= structure_ref(base[0],VV[0],4);
(void)simple_symlispcall_no_event(VV[127],base+2,1);
princ_char(41,VV[82]);
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;}
}
/* function definition for SET-VAR */
static L75()
{ register object *base=vs_base;
register object *sup=base+VM20;
vs_reserve(VM20);
check_arg(3);
vs_top=sup;
TTL:;
if(!(type_of(base[0])==t_cons)){
goto T294;}
if(!(car(base[0])==VV[0])){
goto T294;}
if(!(cadr(base[0])==base[1])){
goto T294;}
if(caddr(base[0])==base[2]){
goto T295;}
T294:;
{object V11= structure_ref(base[1],VV[0],1);
if((V11!= VV[66]))goto T303;
princ_str("\n ",VV[82]);
if((base[2])==Cnil){
goto T307;}
base[3]= structure_ref(base[1],VV[0],3);
(void)simple_symlispcall_no_event(VV[124],base+3,1);
goto T305;
T307:;
if((structure_ref(base[1],VV[0],3))==Cnil){
goto T311;}
base[3]= structure_ref(base[1],VV[0],2);
(void)simple_symlispcall_no_event(VV[125],base+3,1);
goto T305;
T311:;
base[3]= structure_ref(base[1],VV[0],2);
(void)simple_symlispcall_no_event(VV[126],base+3,1);
T305:;
princ_str("= ",VV[82]);
base[3]= base[0];
(void)simple_symlispcall_no_event(VV[127],base+3,1);
princ_char(59,VV[82]);
base[3]= Cnil;
vs_top=(vs_base=base+3)+1;
return;
T303:;
if((V11!= VV[63]))goto T319;
princ_str("\n (VV[",VV[82]);
base[3]= structure_ref(base[1],VV[0],4);
(void)simple_symlispcall_no_event(VV[127],base+3,1);
princ_str("]->s.s_dbind)= ",VV[82]);
base[3]= base[0];
(void)simple_symlispcall_no_event(VV[127],base+3,1);
princ_char(59,VV[82]);
base[3]= Cnil;
vs_top=(vs_base=base+3)+1;
return;
T319:;
if((V11!= VV[71]))goto T327;
if((symbol_value(VV[83]))==Cnil){
goto T329;}
princ_str("\n setq(VV[",VV[82]);
base[3]= structure_ref(base[1],VV[0],4);
(void)simple_symlispcall_no_event(VV[127],base+3,1);
princ_str("],",VV[82]);
base[3]= base[0];
(void)simple_symlispcall_no_event(VV[127],base+3,1);
princ_str(");",VV[82]);
base[3]= Cnil;
vs_top=(vs_base=base+3)+1;
return;
T329:;
princ_str("\n (VV[",VV[82]);
base[3]= structure_ref(base[1],VV[0],4);
(void)simple_symlispcall_no_event(VV[127],base+3,1);
princ_str("]->s.s_dbind)= ",VV[82]);
base[3]= base[0];
(void)simple_symlispcall_no_event(VV[127],base+3,1);
princ_char(59,VV[82]);
base[3]= Cnil;
vs_top=(vs_base=base+3)+1;
return;
T327:;
princ_str("\n V",VV[82]);
base[3]= structure_ref(base[1],VV[0],4);
(void)simple_symlispcall_no_event(VV[127],base+3,1);
princ_str("= ",VV[82]);
{object V12= structure_ref(base[1],VV[0],1);
if((V12!= VV[78]))goto T351;
base[3]= base[0];
(void)simple_symlispcall_no_event(VV[130],base+3,1);
goto T350;
T351:;
if((V12!= VV[79]))goto T353;
base[3]= base[0];
(void)simple_symlispcall_no_event(VV[131],base+3,1);
goto T350;
T353:;
if((V12!= VV[80]))goto T355;
base[3]= base[0];
(void)simple_symlispcall_no_event(VV[132],base+3,1);
goto T350;
T355:;
if((V12!= VV[81]))goto T357;
base[3]= base[0];
(void)simple_symlispcall_no_event(VV[133],base+3,1);
goto T350;
T357:;
if((V12!= VV[65]))goto T359;
base[3]= base[0];
(void)simple_symlispcall_no_event(VV[19],base+3,1);
goto T350;
T359:;
(void)simple_symlispcall_no_event(VV[129],base+3,0);}
T350:;
princ_char(59,VV[82]);
base[3]= Cnil;
vs_top=(vs_base=base+3)+1;
return;}
T295:;
base[3]= Cnil;
vs_top=(vs_base=base+3)+1;
return;
}
/* function definition for SCH-GLOBAL */
static L76()
{ register object *base=vs_base;
register object *sup=base+VM21;
vs_reserve(VM21);
check_arg(1);
vs_top=sup;
TTL:;
{object V13;
base[1]= symbol_value(VV[58]);
V13= car(base[1]);
T364:;
if(!(endp(base[1]))){
goto T365;}
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T365:;
if(!(structure_ref((V13),VV[0],0)==base[0])){
goto T369;}
base[2]= (V13);
vs_top=(vs_base=base+2)+1;
return;
T369:;
base[1]= cdr(base[1]);
V13= car(base[1]);
goto T364;}
}
/* function definition for C1ADD-GLOBALS */
static L77()
{ register object *base=vs_base;
register object *sup=base+VM22;
vs_reserve(VM22);
check_arg(1);
vs_top=sup;
TTL:;
{object V14;
object V15;
V14= base[0];
V15= car((V14));
T380:;
if(!(endp((V14)))){
goto T381;}
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T381:;
base[2]= VV[60];
base[3]= (V15);
base[4]= VV[70];
base[5]= VV[71];
base[6]= VV[72];
base[8]= (V15);
base[7]= simple_symlispcall_no_event(VV[118],base+8,1);
base[8]= VV[73];
base[10]= get((V15),VV[64],Cnil);
if((base[10])==Cnil){
goto T399;}
base[9]= base[10];
goto T396;
T399:;
base[9]= Ct;
T396:;
vs_top=(vs_base=base+2)+8;
L61();
vs_top=sup;
base[1]= vs_base[0];
setq(VV[57],make_cons(base[1],symbol_value(VV[57])));
V14= cdr((V14));
V15= car((V14));
goto T380;}
}
/* function definition for C1SETQ */
static L78()
{ register object *base=vs_base;
register object *sup=base+VM23;
vs_reserve(VM23);
check_arg(1);
vs_top=sup;
TTL:;
if(!(endp(base[0]))){
goto T407;}
symlispcall_no_event(VV[134],base+1,0);
return;
T407:;
if(!(endp(cdr(base[0])))){
goto T410;}
base[1]= VV[5];
base[2]= VV[85];
base[3]= VV[86];
symlispcall_no_event(VV[135],base+1,3);
return;
T410:;
if(!(endp(cddr(base[0])))){
goto T416;}
base[1]= car(base[0]);
base[2]= cadr(base[0]);
vs_top=(vs_base=base+1)+2;
L79();
return;
T416:;
{object V16;
V16= base[0];
base[1]= Cnil;
T422:;
if(!(endp((V16)))){
goto T423;}
base[3]= reverse(base[1]);
base[2]= make_cons(VV[87],base[3]);
symlispcall_no_event(VV[136],base+2,1);
return;
T423:;
if(!(endp(cdr((V16))))){
goto T428;}
base[2]= VV[88];
base[3]= car((V16));
(void)simple_symlispcall_no_event(VV[117],base+2,2);
T428:;
base[2]= list(3,VV[5],car((V16)),cadr((V16)));
base[1]= make_cons(base[2],base[1]);
V16= cddr((V16));
goto T422;}
}
/* function definition for C1SETQ1 */
static L79()
{ register object *base=vs_base;
register object *sup=base+VM24;
vs_reserve(VM24);
check_arg(2);
vs_top=sup;
TTL:;
base[2]= simple_symlispcall_no_event(VV[120],base+3,0);
base[3]= Cnil;
base[4]= Cnil;
base[5]= Cnil;
if(type_of(base[0])==t_symbol){
goto T439;}
base[6]= VV[89];
base[7]= base[0];
(void)simple_symlispcall_no_event(VV[117],base+6,2);
T439:;
base[6]= base[0];
vs_top=(vs_base=base+6)+1;
Lconstantp();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T444;}
base[6]= VV[90];
base[7]= base[0];
(void)simple_symlispcall_no_event(VV[117],base+6,2);
T444:;
base[6]= base[0];
vs_top=(vs_base=base+6)+1;
L70();
vs_top=sup;
base[5]= vs_base[0];
base[6]= make_cons(car(base[5]),structure_ref(base[2],VV[69],0));
structure_set(base[2],VV[69],0,base[6]);
base[6]= base[1];
base[4]= simple_symlispcall_no_event(VV[136],base+6,1);
base[6]= base[2];
base[7]= cadr(base[4]);
(void)simple_symlispcall_no_event(VV[137],base+6,2);
base[6]= structure_ref(car(base[5]),VV[0],5);
base[7]= structure_ref(cadr(base[4]),VV[69],2);
base[3]= simple_symlispcall_no_event(VV[138],base+6,2);
if((base[3])!=Cnil){
goto T465;}
base[6]= VV[91];
base[7]= base[0];
base[8]= base[1];
(void)simple_symlispcall_no_event(VV[119],base+6,3);
T465:;
if(base[3]==structure_ref(cadr(base[4]),VV[69],2)){
goto T471;}
base[7]= cadr(base[4]);
base[6]= simple_symlispcall_no_event(VV[139],base+7,1);
structure_set(base[6],VV[69],2,base[3]);
base[4]= listA(3,car(base[4]),base[6],cddr(base[4]));
T471:;
structure_set(base[2],VV[69],2,base[3]);
base[6]= list(4,VV[5],base[2],base[5],base[4]);
vs_top=(vs_base=base+6)+1;
return;
}
/* function definition for C2SETQ */
static L80()
{ register object *base=vs_base;
register object *sup=base+VM25;
vs_reserve(VM25);
bds_check;
check_arg(2);
vs_top=sup;
TTL:;
base[2]= make_cons(VV[0],base[0]);
bds_bind(VV[92],base[2]);
base[3]= base[1];
base[4]= simple_symlispcall_no_event(VV[140],base+3,1);
bds_unwind1;
{object V17= car(base[1]);
if((V17!= VV[3]))goto T482;
base[2]= caddr(base[1]);
vs_top=(vs_base=base+2)+1;
L73();
return;
T482:;
base[2]= make_cons(VV[0],base[0]);
symlispcall_no_event(VV[123],base+2,1);
return;}
}
/* function definition for C1PROGV */
static L81()
{ register object *base=vs_base;
register object *sup=base+VM26;
vs_reserve(VM26);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= Cnil;
base[2]= Cnil;
base[3]= simple_symlispcall_no_event(VV[120],base+4,0);
if(endp(base[0])){
goto T487;}
if(!(endp(cdr(base[0])))){
goto T486;}
T487:;
base[4]= VV[9];
base[5]= VV[85];
base[6]= make_fixnum(length(base[0]));
(void)simple_symlispcall_no_event(VV[135],base+4,3);
T486:;
base[4]= car(base[0]);
base[5]= base[3];
base[1]= simple_symlispcall_no_event(VV[141],base+4,2);
base[4]= cadr(base[0]);
base[5]= base[3];
base[2]= simple_symlispcall_no_event(VV[141],base+4,2);
base[5]= cddr(base[0]);
base[6]= base[3];
base[4]= simple_symlispcall_no_event(VV[142],base+5,2);
base[5]= list(5,VV[9],base[3],base[1],base[2],base[4]);
vs_top=(vs_base=base+5)+1;
return;
}
/* function definition for C2PROGV */
static L82()
{ register object *base=vs_base;
register object *sup=base+VM27;
vs_reserve(VM27);
bds_check;
check_arg(3);
vs_top=sup;
TTL:;
setq(VV[93],number_plus(symbol_value(VV[93]),VV[86]));
base[3]= symbol_value(VV[93]);
bds_bind(VV[94],symbol_value(VV[94]));
princ_str("\n {object symbols,values;",VV[82]);
princ_str("\n bds_ptr V",VV[82]);
base[5]= base[3];
(void)simple_symlispcall_no_event(VV[127],base+5,1);
princ_str("=bds_top;",VV[82]);
(VV[94]->s.s_dbind)= make_cons(base[3],(VV[94]->s.s_dbind));
bds_bind(VV[95],symbol_value(VV[95]));
base[7]= simple_symlispcall_no_event(VV[143],base+8,0);
base[6]= list(2,VV[96],base[7]);
bds_bind(VV[92],base[6]);
base[7]= base[0];
(void)simple_symlispcall_no_event(VV[140],base+7,1);
princ_str("\n symbols= ",VV[82]);
base[7]= (VV[92]->s.s_dbind);
(void)simple_symlispcall_no_event(VV[127],base+7,1);
princ_char(59,VV[82]);
bds_unwind1;
base[7]= simple_symlispcall_no_event(VV[143],base+8,0);
base[6]= list(2,VV[96],base[7]);
bds_bind(VV[92],base[6]);
base[7]= base[1];
(void)simple_symlispcall_no_event(VV[140],base+7,1);
princ_str("\n values= ",VV[82]);
base[7]= (VV[92]->s.s_dbind);
(void)simple_symlispcall_no_event(VV[127],base+7,1);
princ_char(59,VV[82]);
bds_unwind1;
princ_str("\n while(!endp(symbols)){",VV[82]);
if((symbol_value(VV[83]))==Cnil){
goto T537;}
princ_str("\n if(type_of(MMcar(symbols))!=t_symbol)",VV[82]);
princ_str("\n FEinvalid_variable(\"~s is not a symbol.\",MMcar(symbols));",VV[82]);
T537:;
princ_str("\n if(endp(values))bds_bind(MMcar(symbols),OBJNULL);",VV[82]);
princ_str("\n else{bds_bind(MMcar(symbols),MMcar(values));",VV[82]);
princ_str("\n values=MMcdr(values);}",VV[82]);
princ_str("\n symbols=MMcdr(symbols);}",VV[82]);
bds_unwind1;
base[5]= base[2];
(void)simple_symlispcall_no_event(VV[144],base+5,1);
princ_char(125,VV[82]);
base[5]= Cnil;
vs_top=(vs_base=base+5)+1;
bds_unwind1;
return;
}
/* function definition for C1PSETQ */
static L83()
{ register object *base=vs_base;
register object *sup=base+VM28;
vs_reserve(VM28);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= Cnil;
base[2]= Cnil;
base[4]= VV[73];
base[5]= VV[97];
base[3]= simple_symlispcall_no_event(VV[120],base+4,2);
{object V18;
V18= base[0];
T559:;
if(!(endp((V18)))){
goto T560;}
goto T556;
T560:;
if(type_of(car((V18)))==t_symbol){
goto T564;}
base[4]= VV[98];
base[5]= car((V18));
(void)simple_symlispcall_no_event(VV[117],base+4,2);
T564:;
base[4]= car((V18));
vs_top=(vs_base=base+4)+1;
Lconstantp();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T569;}
base[4]= VV[99];
base[5]= car((V18));
(void)simple_symlispcall_no_event(VV[117],base+4,2);
T569:;
if(!(endp(cdr((V18))))){
goto T575;}
base[4]= VV[100];
base[5]= car((V18));
(void)simple_symlispcall_no_event(VV[117],base+4,2);
T575:;
base[5]= car((V18));
vs_top=(vs_base=base+5)+1;
L70();
vs_top=sup;
base[4]= vs_base[0];
base[6]= cadr((V18));
base[5]= simple_symlispcall_no_event(VV[136],base+6,1);
base[7]= structure_ref(car(base[4]),VV[0],5);
base[8]= structure_ref(cadr(base[5]),VV[69],2);
base[6]= simple_symlispcall_no_event(VV[138],base+7,2);
if(equal(base[6],structure_ref(cadr(base[5]),VV[69],2))){
goto T588;}
base[8]= cadr(base[5]);
base[7]= simple_symlispcall_no_event(VV[139],base+8,1);
structure_set(base[7],VV[69],2,base[6]);
base[5]= listA(3,car(base[5]),base[7],cddr(base[5]));
T588:;
base[1]= make_cons(base[4],base[1]);
base[2]= make_cons(base[5],base[2]);
base[7]= make_cons(car(base[4]),structure_ref(base[3],VV[69],0));
structure_set(base[3],VV[69],0,base[7]);
base[7]= base[3];
base[8]= cadar(base[2]);
(void)simple_symlispcall_no_event(VV[137],base+7,2);
V18= cddr((V18));
goto T559;}
T556:;
base[4]= reverse(base[1]);
base[5]= reverse(base[2]);
base[6]= list(4,VV[12],base[3],base[4],base[5]);
vs_top=(vs_base=base+6)+1;
return;
}
/* function definition for C2PSETQ */
static L84()
{ register object *base=vs_base;
register object *sup=base+VM29;
vs_reserve(VM29);
bds_check;
check_arg(2);
vs_top=sup;
TTL:;
bds_bind(VV[95],symbol_value(VV[95]));
base[3]= Cnil;
base[4]= VV[101];
{object V19;
object V20;
V19= base[0];
V20= car((V19));
T610:;
if(!(endp((V19)))){
goto T611;}
goto T606;
T611:;
base[5]= car((V20));
base[6]= cdr(base[1]);
if((simple_symlispcall_no_event(VV[145],base+5,2))!=Cnil){
goto T616;}
base[5]= car((V20));
base[6]= cdr(base[1]);
if((simple_symlispcall_no_event(VV[146],base+5,2))==Cnil){
goto T617;}
T616:;
{object V21= caar(base[1]);
if((V21!= VV[3]))goto T625;
base[5]= make_cons((V20),caddar(base[1]));
base[3]= make_cons(base[5],base[3]);
goto T615;
T625:;
{object x= structure_ref(car((V20)),VV[0],1),V22= VV[102];
while(!endp(V22))
if(eql(x,V22->c.c_car)){
goto T629;
}else V22=V22->c.c_cdr;
goto T628;}
T629:;
base[5]= structure_ref(car((V20)),VV[0],1);
setq(VV[93],number_plus(symbol_value(VV[93]),VV[86]));
base[6]= symbol_value(VV[93]);
base[9]= VV[70];
base[10]= base[5];
base[11]= VV[72];
base[12]= base[6];
vs_top=(vs_base=base+9)+4;
L61();
vs_top=sup;
base[8]= vs_base[0];
base[7]= list(3,VV[0],base[8],Cnil);
princ_str("\n {",VV[82]);
base[8]=symbol_function(VV[127]);
base[10]= base[5];
base[9]= simple_symlispcall_no_event(VV[147],base+10,1);
(void)simple_lispcall_no_event(base+8,1);
princ_char(86,VV[82]);
base[8]= base[6];
(void)simple_symlispcall_no_event(VV[127],base+8,1);
princ_char(59,VV[82]);
base[4]= number_plus(base[4],VV[86]);
bds_bind(VV[92],base[7]);
base[9]= car(base[1]);
base[10]= simple_symlispcall_no_event(VV[140],base+9,1);
bds_unwind1;
base[8]= make_cons((V20),base[7]);
base[3]= make_cons(base[8],base[3]);
goto T615;
T628:;
base[6]= simple_symlispcall_no_event(VV[143],base+7,0);
base[5]= list(2,VV[96],base[6]);
bds_bind(VV[92],base[5]);
base[6]= car(base[1]);
(void)simple_symlispcall_no_event(VV[140],base+6,1);
base[6]= make_cons((V20),(VV[92]->s.s_dbind));
base[3]= make_cons(base[6],base[3]);
bds_unwind1;
goto T615;}
T617:;
base[5]= make_cons(VV[0],(V20));
bds_bind(VV[92],base[5]);
base[6]= car(base[1]);
base[7]= simple_symlispcall_no_event(VV[140],base+6,1);
bds_unwind1;
T615:;
base[5]= car(base[1]);
base[1]= cdr(base[1]);
V19= cdr((V19));
V20= car((V19));
goto T610;}
T606:;
{object V23;
object V24;
V23= base[3];
V24= car((V23));
T673:;
if(!(endp((V23)))){
goto T674;}
goto T669;
T674:;
base[5]= cdr((V24));
base[6]= caar((V24));
base[7]= cadar((V24));
vs_top=(vs_base=base+5)+3;
L75();
vs_top=sup;
V23= cdr((V23));
V24= car((V23));
goto T673;}
T669:;
base[5]= VV[101];
T689:;
if(!(number_compare(base[5],base[4])>=0)){
goto T690;}
goto T687;
T690:;
princ_char(125,VV[82]);
base[5]= one_plus(base[5]);
goto T689;
T687:;
base[5]= Cnil;
symlispcall_no_event(VV[123],base+5,1);
bds_unwind1;
return;
}